home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / nodesrch.zip / NODEINDX.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-11-14  |  3KB  |  175 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.3O (Encryption type II) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     Cls
  24.     INTEGER001 = DNext()
  25.     If (Exist(PPEPath() + "nodelist.dbf")) Then
  26.         DOpen INTEGER001, PPEPath() + "nodelist", 0
  27.         If (DErr(INTEGER001)) Goto LABEL001
  28.         PrintLn 
  29.         PrintLn "@X0ENode List Found!@X07"
  30.         Goto LABEL002
  31.         :LABEL001
  32.         PrintLn 
  33.         PrintLn "Error opening file"
  34.         Wait
  35.         :LABEL002
  36.     Else
  37.         PrintLn 
  38.         PrintLn "File does not exist"
  39.         Wait
  40.     Endif
  41.     AnsiPos 4, 4
  42.     PrintLn "@X81Now Creating The NAME INDEX!!!@X07"
  43.     If (Exist(PPEPath() + "nodesrch.ndx")) Delete PPEPath() + "nodesrch.ndx"
  44.     DnCreate INTEGER001, PPEPath() + "nodesrch.ndx", "Sysop_Name"
  45.     If (DErr(INTEGER001)) Then
  46.         PrintLn "@X84Error creating index.@X07"
  47.         Wait
  48.     Endif
  49.     DTag INTEGER001, "nodesrch"
  50.     If (DErr(INTEGER001)) Goto LABEL003
  51.     AnsiPos 4, 4
  52.     PrintLn "@X02The NAME INDEX Is Finished !!!@X07"
  53.     Goto LABEL004
  54.     :LABEL003
  55.     PrintLn "@X84Error Creating File!@X07"
  56.     Wait
  57.     :LABEL004
  58.     AnsiPos 6, 6
  59.     PrintLn "@X81Now Creating The BBS NAME INDEX!!!@X07"
  60.     If (Exist(PPEPath() + "BBSNAME.ndx")) Delete PPEPath() + "BBSNAME.ndx"
  61.     DnCreate INTEGER001, PPEPath() + "BBSNAME.ndx", "BBS_Name"
  62.     If (DErr(INTEGER001)) Then
  63.         PrintLn "@X84Error creating index.@X07"
  64.         Wait
  65.     Endif
  66.     DTag INTEGER001, "BBSNAME"
  67.     If (DErr(INTEGER001)) Goto LABEL005
  68.     AnsiPos 6, 6
  69.     PrintLn "@X02The BBS NAME INDEX Is Finished !!!@X07"
  70.     Goto LABEL006
  71.     :LABEL005
  72.     PrintLn "@X84Error Creating File!@X07"
  73.     Wait
  74.     :LABEL006
  75.     AnsiPos 8, 8
  76.     PrintLn "@X81Now Creating The BBS LOCATION INDEX!!!@X07"
  77.     If (Exist(PPEPath() + "LOCATION.ndx")) Delete PPEPath() + "LOCATION.ndx"
  78.     DnCreate INTEGER001, PPEPath() + "LOCATION.ndx", "Location"
  79.     If (DErr(INTEGER001)) Then
  80.         PrintLn "@X84Error creating index.@X07"
  81.         Wait
  82.     Endif
  83.     DTag INTEGER001, "LOCATION"
  84.     If (DErr(INTEGER001)) Goto LABEL007
  85.     AnsiPos 8, 8
  86.     PrintLn "@X02The BBS LOCATION INDEX Is Finished !!!@X07"
  87.     Goto LABEL008
  88.     :LABEL007
  89.     PrintLn "@X84Error Creating File!@X07"
  90.     Wait
  91.     :LABEL008
  92.     AnsiPos 10, 10
  93.     PrintLn "@X81Now Creating The NET NUMBER INDEX!!!@X07"
  94.     If (Exist(PPEPath() + "NETLIST.ndx")) Delete PPEPath() + "NETLIST.ndx"
  95.     DnCreate INTEGER001, PPEPath() + "NETLIST.ndx", "Net"
  96.     If (DErr(INTEGER001)) Then
  97.         PrintLn "@X84Error creating index.@X07"
  98.         Wait
  99.     Endif
  100.     DTag INTEGER001, "NETLIST"
  101.     If (DErr(INTEGER001)) Goto LABEL009
  102.     AnsiPos 10, 10
  103.     PrintLn "@X02The NET NUMBER INDEX Is Finished !!!@X07"
  104.     Goto LABEL010
  105.     :LABEL009
  106.     PrintLn "@X84Error Creating File!@X07"
  107.     Wait
  108.     :LABEL010
  109.     AnsiPos 12, 12
  110.     PrintLn "@X81Now Creating The PHONE NUMBER INDEX!!!@X07"
  111.     If (Exist(PPEPath() + "PHONE.ndx")) Delete PPEPath() + "PHONE.ndx"
  112.     DnCreate INTEGER001, PPEPath() + "PHONE.ndx", "BBS_Phone"
  113.     If (DErr(INTEGER001)) Then
  114.         PrintLn "@X84Error creating index.@X07"
  115.         Wait
  116.     Endif
  117.     DTag INTEGER001, "PHONE"
  118.     If (DErr(INTEGER001)) Goto LABEL011
  119.     AnsiPos 12, 12
  120.     PrintLn "@X02The PHONE NUMBER INDEX Is Finished !!!@X07"
  121.     Goto LABEL012
  122.     :LABEL011
  123.     PrintLn "@X84Error Creating File!@X07"
  124.     Wait
  125.     :LABEL012
  126.     DCloseAll
  127.     End
  128.  
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Usage report (before postprocessing)
  132. ;
  133. ; ■ Statements used :
  134. ;
  135. ;    1       End
  136. ;    1       Cls
  137. ;    12      Wait
  138. ;    20      Goto 
  139. ;    1       Let 
  140. ;    26      PrintLn 
  141. ;    17      If 
  142. ;    5       Delete 
  143. ;    10      AnsiPos 
  144. ;    1       DOpen 
  145. ;    1       DCloseAll
  146. ;    5       DnCreate 
  147. ;    5       DTag 
  148. ;
  149. ;
  150. ; ■ Functions used :
  151. ;
  152. ;    17      +
  153. ;    12      !
  154. ;    17      PPEPath()
  155. ;    6       Exist()
  156. ;    11      DErr()
  157. ;    1       DNext()
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Analysis flags : No flag
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Postprocessing report
  166. ;
  167. ;    0       For/Next
  168. ;    0       While/EndWhile
  169. ;    6       If/Then or If/Then/Else
  170. ;    0       Select Case
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;                 AEGiS Corp - Break the routines, code against the machines!
  174. ;------------------------------------------------------------------------------
  175.